
<h1>BNF Info</h1>

<h3>Info</h3>
<p>
Search is possible for ID (controlfield 001). 
Purpose of this test suite is only to control and check the preprocessing of the BNF XML-Files</p> 

<h3>CHANGELOG</h3>
<h2>ADDED</h2>
<ul>
<li/>+ 
</ul>

<h2>TODO</h2>
<p>
<ul>
<li/> - 
</ul>
</p>

<h3>ADDITION</h3>
<p>
Summary: ...
</p>
<p>
Rule 2803 for import in Kallisto
<pre style="background-color:black; color:#ff0; font-family:Fixedsys,Courier,monospace; padding:10px;">
<code >
<b>
$$$DEZ=0;
BATCH="J";
IMPORT="X";
$UPMOD="I"; 
$$DATE="20130450";
KU0020.A=KUISN;
REGEL(HS2561); * HDWEM für H0001;
$UPMOD="I" : BEGINN;
  MAXIND(MABLIN,$N);
  $I=1;
  $A=0;
  $D=0;
  $X=$N;
  $I  = 1;
  $GB = 1;
  $GW = MABLIN(1).1#3;
  DO (: $I <= $N); * $N=Anzahl MABLIN - siehe oben;
    $I > 0 : BEGINN;
      $TXT.A = MABLIN($GB).6; * $GB entspricht $I - $TXT ist der Inhalt;
      $GW2.A= $GW#2;
      $GWI.A= $TXT.1#1; * Indikator;
      $GW = "<font color=red>000</font>" : HERFES.A = "RIIM";
      $GW = "<font color=red>001</font>" : RISMNR.A = $TXT;
      $GW = "<font color=red>005</font>" : H00050.A = $TXT#8;
      $GW = "<font color=red>033</font>" : BEGINN;
        MAXIND(BEMINT,$M);
        $M=$M+1;
        REGEL(HS2785); * Ersetzen "-" zu "0";
        BEMINT($M).A=$TXT.2;
        INDBM($M).A="942";
      END;
      $GW = "<font color=red>040</font>" U $GWI="b" : BEGINN;
        H02030.A=$TXT.2#3;
      END;
      $GW = "<font color=red>852</font>" U $GWI="a" : BEGINN;
        BVSIGL/KSU200.A = $TXT.2;
      END;
      $GW = "<font color=red>041</font>" : BEGINN;
        MAXIND(H02030,$M);
        $M=$M+1;
        H02030($M)=$TXT.2#3;
        STRLEN(H02030($M),$L);
        $L=6 : BEGINN; 
          MAXIND(H02030,$M);
          $M=$M+1;
          H02030($M)=$TXT.5#3;
        END;
      END;
      $GW = <font color=red>100</font> : BEGINN; * Realname Komponist;
        MAXIND(P0800/PE0100,$M);
        $M=$M+1;
        $GWI="a" : BEGINN;
          P0800/PE0100($M).A=$TXT.2;
          GFUPER($M)="y";
        END;
        $GWI="d" : BEGINN;
          MAXIND(P0800/PE0100,$M);
          RISMHS/PE0100($M).A=P0800/PE0100($M) + " <" + $TXT.2 + ">";
        END;
      END;
      $GW = <font color=red>130</font> : BEGINN; * Einordnungstitel vom übergeordneten Werk?;
        DOKTYP="C";
        $GWI="a" : BEGINN;
          H41800.A=$TXT.2;
          H41802="ri";
        END;
        $GWI="k" : BEGINN;
          H41800=="": H41800.A=H41800+". "+$TXT.2;
          H41800="" : H41800.A=$TXT.2;
        END;
        $GWI="m" : BEGINN; * Scoring Summary, z.B. "ob, bc";
          BESHIN.A=$TXT.2;
        END;
        $GWI="n" : BEGINN; * Thematic catalogue, z.B. "ChaF. 99";
          A0376/AKA451.A=$TXT.2;
        END;
        $GWI="o" : BEGINN; * "arr.";
          H41800=="": H41800.A=H41800+". "+$TXT.2;
          H41800="" : H41800.A=$TXT.2;
        END;
        $GWI="p" : BEGINN; * Name of section or part, z.B. "Sarabanda";
          H41800=="": H41800.A=H41800+". "+$TXT.2;
          H41800="" : H41800.A=$TXT.2;
        END;
        $GWI="r" : BEGINN; * Key, z.B. "D-Minor";
          TONAT.A=$TXT.2;
        END;
      END;
      $GW = <font color=red>240</font> : BEGINN; * Einordnungstitel;
        DOKTYP="W";
        $GWI="a" : BEGINN;
          H41800.A=$TXT.2;
          H41802="ri";
        END;
        $GWI="k" : BEGINN;
          H41800=="": H41800.A=H41800+". "+$TXT.2;
          H41800="" : H41800.A=$TXT.2;
        END;
        $GWI="m" : BEGINN; * Scoring Summary, z.B. "ob, bc";
          BESHIN.A=$TXT.2;
        END;
        $GWI="n" : BEGINN; * Thematic catalogue, z.B. "ChaF. 99";
          A0376/AKA451.A=$TXT.2;
        END;
        $GWI="o" : BEGINN; * "arr.";
          H41800=="": H41800.A=H41800+". "+$TXT.2;
          H41800="" : H41800.A=$TXT.2;
        END;
        $GWI="p" : BEGINN; * Name of section or part, z.B. "Sarabanda";
          H41800=="": H41800.A=H41800+". "+$TXT.2;
          H41800="" : H41800.A=$TXT.2;
        END;
        $GWI="r" : BEGINN; * Key, z.B. "D-Minor";
          TONAT.A=$TXT.2;
        END;
      END;
      $GW = <font color=red>242</font> : BEGINN; * Übersetzungstitel;
        MAXIND(H41840,H41842,$M);
        $M=$M+1;
        H41840($M).A=$TXT.5;
        H41842($M)="up";
      END;
      $GW = <font color=red>245</font> : BEGINN; * Transcribierter Titel;
          $GWI="a" : BEGINN;
          DIPTIT.A=$TXT.2;
        END;
        $GWI="b" : BEGINN; * an DIPTIT mit Punkt hinzufügen?;
          DIPTIT=="" : DIPTIT.A=DIPTIT + ". " + $TXT.2;
          DIPTIT=""  : DIPTIT.A=$TXT.2;
        END;
        $GWI="c" : BEGINN; * ?? Komponistennamen;
          MAXIND(H41840,H41842,$M);
          $M=$M+1;
          H41840($M).A=$TXT.2;
          H41842($M)="wt";
        END;
      END;
      $GW = <font color=red>246</font> : BEGINN; *  ?? Weitere Titel;
        MAXIND(H41840,H41842,$M);
        $M=$M+1;
        H41840($M).A=$TXT.2;
        H41842($M)="wt";
      END;
      $GW = <font color=red>250</font> : BEGINN; * ?? Edition Statement;
        MAXIND(H41840,H41842,$M);
        $M=$M+1;
        H41840($M).A=$TXT.5;
        H41842($M)="wt";
      END;
      $GW = <font color=red>260</font> : BEGINN;  * Verlagsangaben;
		MAXIND(BEMUEB,$M);
		$M=$M+1;
        $GWI="a" : BEGINN; * Verlagsort;
          BEMUEB($M).A=$TXT.2;
          BEMIND($M).A="260";
        END;
        $GWI="b" : BEGINN; * Verlag;
        MAXIND(K0800/KSC200,GFUKS,$M);
        $M=$M+1;
        K0800/KSC200($M).A=$TXT.2;
        GFUKS($M).A="pb";
        END;
        $GWI="c" : BEGINN; * Datum;
          MAXIND(BEMUEB,$M);
	  $M=$M+1;
          BEMUEB($M).A=$TXT.2;
          BEMIND($M).A="26c";
        END;        
      END;
      $GW = <font color=red>270</font> : BEGINN; * ?? Datum;
        MAXIND(H41840,H41842,$M);
        $M=$M+1;
        H41840($M).A=$TXT.5;
        H41842($M)="wt";
      END;
      $GW = <font color=red>300</font> : BEGINN; * Materialarten;
        $GWI="a" : AH400.A=$TXT.2;  * scores, parts;
        $GWI="c" : FORMAN.A=$TXT.2; * Format;
      END;   
      
      $GW = <font color=red>383</font> : BEGINN; * Opus;
        $GWI="b" : OPUS.A=$TXT.2;  * opus;
      END;
      
      $GW=<font color=red>351</font> O $GW=<font color=red>500</font> O $GW=<font color=red>505</font> O $GW=<font color=red>510</font> O $GW=<font color=red>511</font> O $GW=<font color=red>518</font> O $GW=<font color=red>525</font> O $GW=<font color=red>533</font> O $GW=<font color=red>545</font> O $GW=<font color=red>546</font> O $GW=<font color=red>555</font> O $GW=<font color=red>561</font> O $GW=<font color=red>580</font> O $GW=<font color=red>585</font> O $GW=<font color=red>592</font> O $GW=<font color=red>593</font> O $GW=<font color=red>594</font> O $GW=<font color=red>595</font> O $GW=<font color=red>596</font> O $GW=<font color=red>597</font> O $GW=<font color=red>598</font> O $GW=<font color=red>600</font> O $GW=<font color=red>752</font> O $GW=<font color=red>772</font> O $GW=<font color=red>774</font> O $GW=<font color=red>787</font> : BEGINN; 
        MAXIND(BEMUEB,$M);
        $M=$M+1;
        $GW==787 : BEMUEB($M).A=$TXT.2;
        $GW=787  : BEMUEB($M).A=$TXT.6#10;
        $GW=518 O $GW=351 O $GW=500 O $GW=505 : BEMSPR($M).A=H02030(01); * Sprache aus 040;
        BEMIND($M).A=$GW; 
      END;
      $GW = <font color=red>520</font> : BEGINN; * Summary Notes;
        H41820.A=$TXT.2;
      END;
      $GW = <font color=red>590</font> : BEGINN; * Stimmen, nicht aufbereitet;
        BESETS.A=$TXT.2;
      END;


     $GW = <font color=red>599</font> : BEGINN; * Provenienz;
        HSSAMM.A=$TXT.2;
      END;
      $GW = <font color=red>591</font> : BEGINN; * Former MS number;
        MAXIND(WEISIG,$M);
        $M=$M+1;
        WEISIG($M).A=$TXT.2;
        INDSIG($M)="a";
      END;       
      $GW = <font color=red>650</font> : BEGINN; * Subject Headings;
        MAXIND(SWVF/GATKEY,$M);
        $M=$M+1;
        SWVF/GATKEY($M).A=$TXT.2;
      END;
      $GW = <font color=red>657</font> : BEGINN; * Liturgical Function;
        MAXIND(SWVF/KIRKEY,$M);
        $M=$M+1;
        SWVF/KIRKEY($M).A=$TXT.2;
      END;
      $GW = "<font color=red>700</font>" : BEGINN; * Sonstige Namen;
        MAXIND(P0800/PEA100,GFUPAN,$M);
        $M=$M+1;
        $GWI="a" : BEGINN;
          P0800/PEA100($M).A=$TXT.2;
        END;
        $GWI="d" : BEGINN;
          MAXIND(P0800/PEA100,$M);
          RISMHS/PEA100($M).A=P0800/PEA100($M) + " <" + $TXT.2 + ">";
        END;
        $GWI="4" : BEGINN;
          MAXIND(P0800/PEA100,$M);
          GFUPAN($M).A=$TXT.2; * cmp, arr, edt, lyr, lbt, dub, scr, prf, dte, fmo;
        END;
      END;
      $GW = <font color=red>710</font> U $GWI=="a"  : BEGINN; * Holding Institution;
        MAXIND(BEMUEB,$M);
        $M=$M+1;
        BEMUEB($M).A=$TXT.2;
        BEMIND($M).A=$GW;
      END;
      $GW = <font color=red>730</font> : BEGINN; * Added Entry Uniform Title;
        MAXIND(H41840,H41842,$M);

        $M=$M+1;
        H41840($M).A=$TXT.2;
        H41842($M)="at";
      END;
      $GW = <font color=red>740</font> : BEGINN; * Textincipit;
        MAXIND(TXTIN,$M);
        $M=$M+1;
        TXTIN($M).A=$TXT.2;
      END;
      $GW = <font color=red>772</font> O $GW=<font color=red>773</font> : BEGINN; * es gibt nur eine Kopplung nach oben;
        RISMNR/COLKEY.A = $TXT.7#10;
      END;
      $GW = <font color=red>787</font> U STOP=1 : BEGINN; * zugehöriges Material - BEMUEB;
        MAXIND(RISMNR/HSWKEY,$M);
        $M=$M+1;
        RISMNR/HSWKEY($M).A = $TXT.5#9;
      END;
      $GW = <font color=red>852</font> U $GWI="b" : BEGINN; * Signa;
        HSEXSG.A = $TXT.2;
      END;
      $GW=<font color=red>789</font> : REGEL(HS7330); * Erstellen Incipits;
      ALTSAT=="" U $GW = 789 U $GWI="a"  : BEGINN;
        REGEL(HS2642); * Erstellen Substruktur $$STHS; 
        NEUSAT="";
        ALTSAT="";
        LOESCH(D,INCNR1,INCNR2,INCNR3,INCIND);
        REGEL(HS7330); * mit $GWI="a" wieder neu beginnen lassen;
      END;
      $GB = $I +1;
      $GB <= $N : $GW = MABLIN($GB).1#3;
    END;
    $I = $I+1;
  END;
  REGEL(HS2819); * Endeverarbeitung;
END;
</b>
</code>
</pre>

</p>